Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра автоматизованих систем управління

Інформація про роботу

Рік:
2011
Тип роботи:
Лабораторна робота
Предмет:
Об’єктно-орієнтоване програмування

Частина тексту файла

Міністерство освіти України Національний університет «Львівська політехніка» Кафедра автоматизованих систем управління  Лабораторна робота №2 з курсу «Об'єктно-орієнтоване програмування» Компоненти Delphi. Архітектура проекту в середовищі програмування DELPHI Мета роботи: ознайомитись з компонентами Delphi, їх властивостями, методами та подіями, розглянути особливості побудови прикладних програм із використанням компонент Delphi; вивчити побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту. Порядок виконання роботи: Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи зміст індивідуального завдання тексти головного файлу проекту, програмних модулів та файлів форм аналіз отриманих результатів та висновки Завдання Використовуючи компоненти Memo та OpenDialog створити програму для перегляду та редагування текстових файлів (з можливостями відкриття та збереження файлів на диску). Додати спадне меню з розширеннями при відкритті файлів. Текст програми: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Label1: TLabel; Memo1: TMemo; procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button3Click(Sender: TObject); begin close; end; procedure TForm1.Button1Click(Sender: TObject); var filename:string; begin OpenDialog1.Title := 'Please choose your file'; if OpenDialog1.Execute then begin filename := OpenDialog1.FileName; Memo1.Lines.LoadFromFile(filename); Label1.Caption:=extractfilename(opendialog1.filename); end; end; procedure TForm1.Button2Click(Sender: TObject); var filename:string; begin if SaveDialog1.Execute then begin filename := SaveDialog1.FileName; Memo1.Lines.SaveToFile(filename); end; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.Clear; end; end. Результати  Рис.1 Головне вікно програми Висновок: на лабораторній роботі я ознайомився з компонентами Delphi, їх властивостями, методами та подіями, розглянув особливості побудови прикладних програм із використанням компонент Delphi; вивчив побудову проекту в середовищі програмування Delphi, призначення та зміст файлів проекту.
Антиботан аватар за замовчуванням

31.03.2013 00:03

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини